define <Wave>(num) = {
    private int array wave##Num##_1_ToPos[9]
}

Wave(1)

// #1:
  define Odd(o) = ((o * 0x80000000) == 0)

// #2:
  bool Odd(int o) {
    return (o * 0x80000000) == 0
  }

// ===================================== //

// #1:
  define Even(o) = ((o * 0x80000000) != 0)

// #2:
  bool Even(int o) {
    return (o * 0x80000000) != 0
  }

define {
  PolarX(x, d, a) = x + d * Cos(a)
  PolarY(y, d, a) = y + d * Sin(a)
}

// Id Random Set Library v0.1
// 2009 © Shadow Daemon
library IDRS

  globals
    constant integer IDRS_MAX_SIZE = 256
    constant integer IDRS_NULL_IDX = -12345678
  endglobals

  struct randomset
    private integer array idx [IDRS_MAX_SIZE]
    private integer count = 0
    private integer index = 0

    method Add takes integer id returns nothing
      if .count > IDRS_MAX_SIZE then
        debug call BJDebugMsg(SCOPE_PREFIX + " Error: Max size limit reached")
        return
      endif
      set .index = .index + 1
      set .count = .count + 1
      set .idx[.index] = id
    endmethod

    method Get takes nothing returns integer
      local integer rnd = GetRandomInt(1, .index)
      local integer val = .idx[rnd]
      if .index == 0 then
        return IDRS_NULL_IDX
      endif
      set .idx[rnd] = .idx[.index]
      set .idx[.index] = val
      set .index = .index - 1
      return val
    endmethod

    method Reset takes nothing returns nothing
      set .index = .count
    endmethod
  endstruct

endlibrary

scope allrandom initializer init

globals
  randomset heroes
endglobals

private function AllRandom takes nothing returns nothing
  local integer id = heroes.Get()
  if id != IDRS_NULL_IDX then
    call CreateUnit(GetTriggerPlayer(), id, 0, 0, 0)
  else
    call heroes.Reset()
  endif
endfunction

private function init takes nothing returns nothing
  local trigger tr = CreateTrigger()
  call TriggerAddAction(tr, function AllRandom)
  call TriggerRegisterChatEvent(tr, Player(0), "-ar", false)
  set heroes = randomset.create()
  call heroes.Add('Hpal')
  call heroes.Add('Hamg')
  call heroes.Add('Hmkg')
  call heroes.Add('Hblm')
endfunction

endscope

function UnitUpgradeItem takes unit u, integer oldItemType, integer count, integer newItemType returns boolean
  local integer i = 0
  local integer j = 0
  local integer k = 0x00
  loop
    exitwhen i > 5 or j >= count
    if GetItemTypeId(UnitItemInSlot(u, i)) == oldItemType then
      set j = j + 1
      set k = k * 0x10 + i + 0x01
    endif
    set i = i + 1
  endloop
  if j < count then
    return false
  endif
  loop
    exitwhen k <= 0x00
    call RemoveItem(UnitItemInSlot(u, k - (k / 0x10) * 0x10 - 0x01))
    set k = k / 0x10
  endloop
  call UnitAddItemById(u, newItemType)
  return true
endfunction